(mouse-wheel-mode): Use the result of current-global-map instead of the

variable `global-map'.

diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index 27a487d0ef6021219ed63e7dd8ae9bdddc77ef03..bd99c00fa749c6159abbe589f49b390de8f18c8d 100644 (file)
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -169,9 +169,9 @@ Returns non-nil if the new state is enabled."
     (condition-case ()
        (dolist (key keys)
          (cond (mouse-wheel-mode
-                (define-key global-map key 'mwheel-scroll))
-               ((eq (lookup-key global-map key) 'mwheel-scroll)
-                (define-key global-map key nil))))
+                (define-key (current-global-map) key 'mwheel-scroll))
+               ((eq (lookup-key (current-global-map) key) 'mwheel-scroll)
+                (define-key (current-global-map) key nil))))
       (error nil))))
 
 ;;; Compatibility entry point